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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 COPY lLOG7A13 ** MAP EC HISTORY ** 002500 2606 198 A (ENTPT POINT TO MAP ENTRY POINT TABLE 
4 CO GC ICC OK ai aici tok dak ia kick ak YQ QB RR A Re a ee FH i Ee A eC ee 2 2 2 2 ee 2 a 2 2 ee a oe ae a 2 a ake ac ea ake ake ae 2 ak ok 2 ko 
5 x * 200 363 OO OIG Tok GOI a a i ok i aa a a ak ak ak ak fee af ake ake ake ak akc ak 
6 * RK PREREQUISITES aK *x 201 ** * 
7 * * 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) * % 
8 * NONE * 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER * x 
9 * * 204 ** PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR *% 
VO RA A HH OK i ie a 2K i 2 a a 2 2 a ee ae 2 2 af a 2 ak 2 2 2 2k 2k ai 2k ae ok 2k 2 fc kc ic ae fc fc 2 i 2c i 2k a kk kk a kK fe ok ak kc i a of ak ake ok 205 ** THE INDICATED MESSAGE(S). THERE ARE FOUR TABLES USED FOR THIS % 
11 * * 206 ** PURPOSE THEY ARE: ** * 
12 * %*% % MODIFICATIONS KK * 207 ** 7% K 
13 * * 208 ** STEP AND RULE ADDRESS TABLE * & 
14 * CHANGES MADE TO CORRECT ERRORS FOUND WHILE IN TEST * 209 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND %* % 
15 * * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. * % 
16 A ORO IO IO II IG a II I a iio fc fote kot ak ak ak afc ac ak akc akc ake ak 211 ** ENTRIES ARE AS FOLLOWES %* 
17 * * 212 ** A AN ADDRESS OF THE RULE DC START AREA * 
18 * KX REA'S INCORPORATED KK * 213 ** B THE STEP NUMBER IN DECIMAL % 
19 * , * 214 ** Cc AN EQUATE FOR THE STEP NUMBER * x 
20 * NONE * 215 ** #3 
21 * x 216 ** RULE INFORMATION TABLE *k 
22 JOR IOC CC ICICI CCR CORIO I CK i kak i kak kak ak aak ak ak ak ak ak ak 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE * * 
23 * * 218 ** THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN * x 
2u * aK IK SPECIAL INSTRUCTIONS eK x 219 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS 7% % 
25 * * 220 ** INDICATED WITH A X*OOOOt FOR THE RULE EQUATE. * 
26 * NONE * 221 ** aes 
27 * * 222 ** SQUES x 
28 eC IC ICICI ICR II III RIC I IO a II I I I kk 4 kk a ak ak ok ak akc ak 223: ee A) RULE EQUATE X*'0100! * x 
29 * * 224 ** B) ADDRESS OF THE YES LEG RULE x 
30 * eK E. C. HISTORY Kx * ye aa oe 
31 * * 226 ** $FIXT 4 
32 * DATE 17AUG78 DATE O20CT78 DATE 10JAN79 DATE * 227 ** A) RULE EQUATE X*0101! ie 
aa : E.-C. 755391 E.C. 375102 E.C. 375222 E.wC. * 428 ates B) ADDRESS OF MESSAGE TO PRINT ee 
* 
35 A IC OK IG i aio i tokio iotoko i ioiatc oka ak atc akak kota ak ak ok ae akc ake ok 230 ** S$STOP * % 
002500 37 I7A13 START X'2500° START ADDPESS OF ALL ‘I! TYPE PROG 231 ¥E 3 RULE EQUATE X*0102' *% 
000100 38 @QUES EQU X'Q100' EQUATED VALUE FOR MDI STATEMENT 232 ** B) ADDRESS OF MESSAGE % 
000101 39 OFIXT EQU X'0101' EQUATED VALUE FOR MDI STATEMENT 233 ** ** % 
000102 40 @STOP EQU X'0102! FQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO * x 
000200 41 a@GOTO EQU X'0200' EQUATED VALUE FOR MDI STATEMENT 235 -¥* A) RULE EQUATE X*0200° am 
000201 42 @CALL EQU X*'0201! EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE * % 
000300 43 @INPT EQU X'03008 EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO % 
000400 44 @QUXX EQU X'O400! EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE * 
000500 45 @TUXX EQU X'0500! EQUATED VALUE FOR MDI STATEMENT 239. 4* F) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE ie 
000600 46 ONVLD EQU X'O600' EQUATED VALUE FOR MDI STATEMENT 241 ** % 
000000 ~ 47 EQ EQU X*QOQOO! EQUATE FOR EQUAL 242 ** SCALL ex 
000004 48 NE EQU x'ooo4? EQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE X*'0201' * 
000008 49 HI EQU X¥*0008! EQUATE FOR HIGH 244 ** B) ADDRESS OF MESSAGE % % 
00000C 50 NH EQU X'OO00C! EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL *x 
000010 51 LO EQU X'0010' EQUATE FOR LOW 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE %* 
000014 52 NL EQU X'O014! EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE * 
000010 53 LT EQU X'0010! EQUATE FOR LESS THAN 248 ** * x 
00000C 54 LE EQU X'OOOC! EQUATE FOR LESS THAN OR EQUAL TO 249 ** SINPT * 
000008 55 GT EQU Xx'OO08* EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE X*'0300' * 
000014 56 GE EQU Xx'OO74! EQUATE FOR GREATER THAN OR EQUAL TO 251 ** B) INPUT TYPE (Epcdic OR HEX) * 
000200 57 ON EQU X'0200! EQUATE FOR ON 252 ** C) ADDRESS OF YES LEG RULE *% 
000202 58 OF EQU X*0202! EQUATE FOR OFF 253 ** D) DESTINATION LOCATION OF INPUT DATA %* x 
000204 59 MX EQU X*O2048 EQUATE FOR MIXED 254 ** E) LENGTH OF INPUT DATA * % 
000000 60 EBC EQU x*0000! EQUATE FOR EBCDIC DATA TRANSFER 255 ** F) LOWER LIMIT OF GOOD DATA * * 
000001 61 HEX EQU X*O0018 EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA * % 
000001 62 XTRNL EQU X'0001' EQUATE FOR EXTERNAL REFERENCE 257 ** * 
000000 63 INTRNL EQU X*'0000! EQUATE FOR INTERNAL REFERENCE 258 ** SQUXX * % 
000000 64 PARM EQU x'0000! EQUATE INDICATING PARAMETER 299 ** A) RULE EQUATE X*'0400° * * 
000001 65 DA EQU X'0Q001' EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE * x 
000002 66 UA EQU X'0002! EQUATE FOR UNIT ADDRESS 261 ** C) TU BRANCH TO ADDRESS (INITIAL ** 
000000 67 DUMMY EQU xX*'OOQOO0O! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) ¥* 
001800 69 PID EQU *-X'ODOO! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER IN BYTES * 
000232 70 PTYPE EQU *~X"*22CE* ADDRESS OF PROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO TU * x 
00180C 71 STEPNUM EQU PID+X*OOOC! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * x 
00180E 72 OPWD1 EQU PID+X!QOOE' ADDRESS OF OPTION WORD ONE 266 ** iba 
001810 73 OPWD2 EQU PID+X*'0010! ADDRESS OF OPTION WORD TWO 267 ** STUXX * x 
001818 74 TUSTATUS EQU PID+X'0018! ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE X‘'0500! * 
00181A 75 TUWORK EQU PID+X*OOTA' ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE * x 
OO189A 76 TUPARM1 EQU PID+X!OO9A'S ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS ** 
00189C 77 TUPARM2 EQU PID+X*'OO9C! ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE ON RESULTS yaa 
00189E 78 TUPARM3 EQU PID+X'QO9E'* ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULTS ** 
0018A0 79 TUPARM4 EQU PID+X*OOAO'! ADDRESS OF PARM 4 POINTER 213 *% F) MASK FIELD FOR COMPARE * * 
0018A2 80 TUPARM5S EQU PID+X"'OOA2' ADDRFSS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES * 
O0018A4 81 TUPARM6 = EQU PID+X*OOA4! ADDRESS OF PARM 6 POINTER 215 ** H) PARAMETER TO PASS TO THE TU * 
0018A6 82 TUPARM7 EQU PID+X*OQOOA6! ADDRESS OF PARM 7 POINTER 276 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * 
0018A8 83 TUPARM8 EQU PID+X'OOAS8! ADDRESS OF PARM 8 POINTER 277 ** * x 
OO18AA 84 TUPARM9 EQU PID+X*OOAA' ADDRESS OF PARM 9 POINTER 278 ** SNVLD * 
0018AC 85 TUPARM10 EQU PID+X*OOQOAC! ADDRESS OF PARM 10 POINTER 279 ** A) RULE EQUATE X*0600! * 
OO18AE 86 TUPARM11 EQU PID+X"OOAE! ADDRESS OF PARM 11 POINTER 281 ** oie 
0018B0 87 TUPARM12 EQU PID+X*OOBO! ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE ** 
0018R2 88 TUPARM13 EQU PID+X'QOB2! ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT * x 
QO018R4 89 TUPARM14 EQU PID+X*OORG! ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE * 
0018B6 90 TUPARM15 EQU PID+X*OOB6! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: * 
0018B8 91 TUPARM16 EQU PID+X'QOBS8! ADDRESS OF PARM 16 POINTER 286 ** +> 
0018BA 92 TUMSGWTR EQU PID+X'OOBA'® ADDRESS OF -> TO COMMON MSG WRITEP 287 ** A) NAME OF ENTRY POINT 7 * 
0018BE 93 TUUA EQU PID+X'OOBE' ADDRESS OF UNIT ADDRESS IN EBC 288 ** ADDRESS OF ENTRY POINT RULE TABLE ** 
0018C0 94 TUDA EQU PID+X*OOCO! ADDRESS OF DEVICE ADDRESS IN EBC 289 ** pee 
0018C2 95 TUBUFF EQU PID+X'OOC2'" ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A X'0000! * 
0018C4 96 TULAST EQU PIDtX*OOC4! ADDRESS OF LAST ADDRESSABLE WORD 291 ** ae 
0018C6 97 TURESULN EQU PID+X'OOC6! ADDRESS OF LENGTH OF TU RESULTS 292 ** MESSAGE TABLE * 
0018C8 98 TURESUOL ay PID+X'OOC8! ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR ** 
9018FC 99 MAPNAME EQU PID+X*OOFC' ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: “> 
001948 100 TUINPT EQU PID+X'O148! ADDRESS OF SINPT DATA 295 -** a 
00196E 101 PARMARA EQU PID+X'O16E! ADDRESS OF SINPT INPUT AREA 296 ** A BOonse FOR START OF MESSAGE BLOCK * * 
0019B8 102 @DCADD1 EQU PID+X'O1B8! MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAGE eaaks 
OO19BA 103 @DCADD2 ate PID+X'O1BA'* MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE * 
0019C4 104 SUPSTAT EQU PID+xX'0O1C4! ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE * X 
0019D0 105 DEVADD EQU PID+X'0O1DO0! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE ** 
OO19DA 106 DEVADD1 EQU PID+X'O1DA'® ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE ** 
OO019E4 107 DEVADD2 EQU PID+X*'O1E4! ADDRESS OF DEVICE ADDRESS TABLE 2 302 ** G) ETC. * 
OO19EE 108 DEVADD3 EQU PID+X'O1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 303 ** am 
Q0019F8 109 DEVADDY EQU PID+X'O1F8!* ADDRESS OF DEVICE ADDRESS TABLE 4& 304 kK Ro kok KK kK Ok ko aK ok i tok i iO rR OR rok a fOr a Og aR IRR ROK RKO ok 
001A02 110 DEVADDS EQU PID+X'0202! ADDRESS OF DEVICE ADDRESS TABLE 5 305 2A OOO III IO III IOI OO III IIR IORI RIOR IOI RR I aR i 
QOO1A0NC 111 DEVADD6 at PID+#+X'020C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 156 DEVADD7 ae pau eee ADDRESS OF DEVICE ADDRESS TABLE 7 
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LIAL3 => TAG PARITY FAILURE MAP P/N=6826981 EC=375222 PAGE 03 LIAV3 == TAG PARITY FAILURE MAP P/N=6826981 EC=375222 PAGE O3A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0026D0 OQQ1C 536 DC A (0028) 002890 0000 653+CST11 DC A (*-* CS STATUS WD 10, HEAD/CYLINDER 
- ‘ 002892 0000 654+CST12 DC A (*-* CS STATUS WD 11, DIAG BYTES 1, 2 
DODGE COM ee 234 De 4 (0926) Be ee ern eee 002894 0000 655+CST13 DC A (*-* CS STATUS WD 12; AND 3 + WRAP BYTE 
O026FO C2C5E3E6C5C5D540C 539 DC CLOO26"BETWEEN ATTACH. AND 4963. ! 656+* 
OO0270A 0018 540 DC A (0024) 002896 0000 657+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 
00270C 6040C5E7TC3C8CID5C 541 DC CLOO24'— EXCHANGE CARD -A2-C2. ! 002898 00000000 658+3DATA DC 2A (*-* OPTIONAL DATA 
002724 0022 542 DC A (0034) 00289C 0021 659+$INTL DC X*O02T! INTERRUPT LEVEL REQUESTED 
rr: eigen e ait ae Sin ~ EXCHANGE THE 4963 ATTACH. CARD. § Weis Aa Cel eeren ae haar Revie tn RETURN ADRS TO MDI 
OO274HA 6040C5E7TC3C8C1D5C 545 DC Ch00544- EXCHANGE CARD ~-A2-D2. '! Q0028A2 19D0 662+SVCAL DC A (DEVADD) ADRS OF DEVICE ADDRESS 
002762 546 F00075 EQU * OO28A4 0000 ee DC A (*-*) IBIS CYLINDER ADDRESS 
002762 000 547 DC AL2 (0003 + 
D057 G6 001c. 548 DC a (0028) 665+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 
002766 6040C9D5SE2D7C5C3E 549 DC CLOOQ28'- INSPECT AND RESEAT CABLES * 666+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 
002782 OO1A 550 DC A (0026) ae STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 
002784 C2C5E3E6C5C5D540C 551 DC CLOO26'BETWEEN ATTACH. AND 4963. ! + 
005708 5653 : 552 DC A (0034) 0028A6 4020 285C 7A02 669+T7A02 MVHI X'7A02',$TUID SET UP TEST UNIT ID 
0O027A0 6040C5E7C3C8C1D5C EE 00065 DC CLO034 ~- EXCHANGE THE 4963 ATTACH. CARD. '! 0028AC 5700 ee oe RETURN TO MDI SUPVR 
903763 9005 555 F be i1.2 (9005) 673 Peete ete e eee eee OSCE SIA EE SEE AS ASSES LET EREERERS SERS OR SEES EELS SA 
0027C6 6040C9DS5SE2D7C5C3E eee DC C10098+ - INSPECT AND RESEAT CABLES § eae . EQUATED NAMES FOR SUPPORTED SVC'S - 
803784 CACSEIRECSCSD540C ae is C0026 | pErWEEN ATTACH. AND 4963. ! tT ae ee er ee ee ee nae rr sag Rte ee oe 
$289 ggagcoereacectnsc 34) ae Ses cen ee 330903 cas re He oOEE sie 
003832 0022 Bey De c19024 ee ee d00008 682 CHNGE EOU i CHANGE LEVEL SVC 
002834 6040C5E7C3C8C1D5C eee epee 00 CLOO34'- EXCHANGE THE 4963 ATTACH. CARD. ! ee a Eee ESU 2 oyun eee ON PROGRAM CHECK SVC 
002856 0000 568+OPTN1 DC xX'Q00008 PROGRAM OPTION CONTROL WORD 1 000007 685 TERM EQU 7 TERMINATE SVC 
569+* 000008 686 RESET EQU 8 RESET DEVICE SVC 
002858 0000 570+OPTN2 DC X'O0000! PROGRAM OPTION CONTROL WORD 2 000009 687 RID EQU 9 READ ID SVC 
571+* BIT HEX QOOOOA 688 START EQU 10 START CYCLE STEAL SVC 
000010 572+B48 EQU 16 0 8 PROBLEM PROGRAM CONTROL BITS 00000B 689 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
000011 573+B49 EQU 17 1 4 * 00000C 690 PREP EQU 12 PREPARE DEVICE SVC 
000012 5744+B50 EQU 18 2 2 * THESE BITS ARE USED WITH THE 00000D 691 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
000013 575+B51 EQU 19 3 1 * SECOND OPTION WD AND ARE TO OOO00E 692 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 
000014 576+B52 EQU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER OO000F 693 RSTAT EQU 15 READ STATUS SVC 
000015 577+B53 EQU 21 5 4 * 000010 694 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000016 578+B54 EQU 22 6 2 * 000011 695 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
000017 579+B55 EQU 23 7 1 * 000012 696 CTRL EQU 18 CONTROL SVC 
000018 580+B56 EQU 24 8 8 * 000013 697 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
000019 581+B57 EQU 25 9 u * 000014 698 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
OOOOTA 582+B58 EQU 26 10 Z * 000015 699 HIO EQU 21 HALT ALL zc 
00001B 583+B59 EQU 27 11 1 * 000016 700 REQSD EQU 22 REQUEST USE OF DCP DISK SVC 
00001C 584+B60 EQU 28 12 8 * 000017 701 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
00001D 585+B61 EQU 29 13 4 * 000018 702 HALT EQU 24 HALT SVC 
OO001E 586+B62 EQU 30 14 2 * 000019 703 ETOH EQU 25 EBCDIC TO HEX SVC (STRING 
00001F 587+B63 EQU 31 15 1 * OOOO1A 704 HTOE EQU 26 HEX TO EBCDIC SVC (STRING 
OO001E 588+CH EQU 30 14 2 CHARACTER SUPPLIED 00001B 705 ATOH EQU 27 ASCII TO HEX SVC TRING 
00001F 589+CMP EQU 31 15 1 COMPARE OPERATION 00001C 706 HTOA EQU 28 HEX TO ASCII SVC (STRING 
00285A 0000 591+OPTN3 DC x'0000' PROGRAM OPTION CONTROL WORD 3 00001D 707 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 
592+* QOQ00TE 708 ATOE EQU 30 ASCIT TO EBCDIC SVC (STRING 
593+* QO MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS cs 0O0001F 709 READI EQU 31 READ DATA SETS FOR MDI/UTIL 
594+* 1 ERROR INTERRUPT ER 9 CS AVAILABLE CSA 000020 710 WRITI EQU 32 WRITE DATA SETS FOR UTIL 
595+* 2 EXPECTED INTERRUPT XT 10 CS STATUS INTERRUPT ERR CE 712 7% BORO III OK OR III II OR ROR a IK ak ak a ake ak akc ak 
596+* 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBON 713 * * 
597+* 714 * EQUATES USED BY TU'S AS CONSTANTS * 
598+* 4 EXPECTED ERR/ATTENT XE 12 TEST UNIT RESULTS VOID NG 715 * 
599+* 5 HARD ERROR FOUND HE 13 OIO CC ERROR TOcc 116 2 RR IO IOC IOI OK I I a kok 
600+* 6 WRONG INTR LEVEL SLE 14 NO INTERRUPT NOIN OO004E 717 PLUS EQU Cl+t PLUS CHAR 
Cats 7 NO INTR seeiemat ae 15 INTERRUPT CC ERROR INCC ne00GG pt anor FOU oo MINUS CHAR 
+ 
000020 603+MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000001 721 ONE EQU 1 
900021 604+ER EQU 33 1 4 EPROR RECFIVED ON INTERRUPT 000002 722 TWO EQU 2 
000022 605+XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000003 723 THREE EQU 3 
000023 606+IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 000004 724 FOUR EQU 4 
000024 607+XE EQU 36 4 8 EXPECTED ERROR RESPONSE 000005 725 FIVE EQU 5 
000025 608+HE EQU 37 5 4 HARD ERPOR, 8 RETRIES 000006 726 SIX EQU 6 
000026 609+$LE EQU 38 6 Z INTERRUPT ON WRONG LEVEL ERROR 000007 727 SEVEN EQU 7 
000027 6104+NI EQU 39 7 1 NO INTERRUPT EXPECTED E 000008 728 EIGHT EQU 8 
000028 611+CS EQU 40 8 8 CYCLE STATUS IN PROGRESS 000009 729 NINE EQU 9 
000029 612+CSA EQU 41 9 4 CYCLE STEAL AVAILABLE OOOO0A 730 TEN EQU 10 
00002A 613+C EQU 42 10 2 CYCLF STEAL STATUS INERRRUPT ERROR 00000B 731 ELEVN EQU 11 11 
00002B 614+ISBON EQU 43 11 1 ISB BITS ON (1-7 00000C 732 TWELV EQU 12 12 
00002C 615+4+N EQU Ay 12 8 TEST UNIT RESULTS NO GOOD 00000D 733 THRTN EQU 13 13 
00002D 616+IOCC EQU 45 13 4 OIO CC ERROR OOO0O0F 734 FIVTN EQU 15 15 
00002E 617+NOIN EQU 46 14 2 NO INTERRUPT 000010 735 SIXTN EQU 16 16 
00002F pao cee EQU 47 15 1 INTERRUPT CC ERROR pean 338 ae EOU 2a a 
+ 
620+* COMMON BUFFER FOR PRINTING DATA 000080 738 ONE28 EQU 128 128 
621+* 000100 739 TWO56 EQU 256 256 
00285cC 0000 623+S5TUID DC A (*-* TEST UNIT IDENTIFICATION 000400 740 ONEK EQU 1024 1024 
00285E 0000 624+$IOIN DC A (*-* I/O AND INTR CONDITION CODES 000890 741 TWOK EQU 2048 2048 
002860 0000 625+$ISB Cc A (*-* R INTR STATUS BYTE & DEV ADRS 000C00 742 THREK EQU 3072 3072 
002862 0000 626+LSTIO DC A (*¥~-* ADRS OF LAST I/O + 4 BYTES 001000 743 FOURK EQU 4096 4096 
002864 0000 627+DEV1 DC A (*¥-* DEVICF DEPENDENT DATA FFFFFF 745 M1 EQU =] =4 
33888 $898 ea5s0er3 be MES : PETES HG Bey 8 =3 
00286A 0000 630+DEV4 DC A (*-* CS STATUS ERROR ISB & INTR CC FFFFFC 748 M4 EQU -4 —4 
002864 631+SCTID EQU DEV1 READ ID BUFFER FOR IBIS & TERN 750 2 IC CG ICC GIGI I OO IO CIO ok a oko kak ak kek ak aka ok 
00286C 632+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 751 * * 
00286C 0000 633+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD 152 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
00286E 0000 634+DCB2 DC A (¥*-* LAST DCB TABLE, DEV DEP WORD 753 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
002870 0000 635+DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 754 * * 
002872 0000 636+DCB4 DC A (*-* LAST DCB TABLE, DEV DEP wORD 755 Ge IO CK I IG IOI I ORCI ICI I aOR ak a ak ak ai ak 
002874 0000 637+DCB5 DC A (*- * T DCB TABLE, DEV DEP WORD 000000 756 BSO EQU 0 
002876 0000 638+DCB6 DC A (*-* LAST DCR TABLE, CHAIN ADRS 000001 757 BS1 EQU 1 
002878 0000 639+DCB7 DC A (*-* DCB TABLE, BYTE COUNT 000002 758 BS2 EQU 2 
00287A 0000 Cae DC A (*-* LAST DCB TABLE, BUFFER ADDRESS aan aes cer ate 7 
00287C 642+CSBUF EQU * CYCLE STEAL DATA BUFFER 000005 761 BS5 EQU 5 
00287C 0000 643+CSTL1 A (*-* CS STATUS WD O, RESIDUAL ADDRESS 000006 762 BS6 EQU 6 
00287E 0000 644+4+CSTL2 DC A (*¥-* CS STATUS WD 1, RESIDUAL COUNT 000007 763 BS7 EQU 7 
002880 0000 645+CSTL3 DC A (*-* CS STATUS WD 2, RETRY CNT WD 1 000008 764 BS8 EQU 8 
002882 0000 646+CSTL4Y DC A (*- * CS STATUS WD 3, RETRY CNT WD 2 000009 765 BS9 EQU 9 
002884 0000 647+CSTL5 DC A (*-* CS STATUS WD 4, ERROR STATUS WD 1 OOOOOA 766 BS10 EQU 10 
002886 0000 648+CSTL6 DC A (*-* CS STATUS WD 5, ERROR STATUS WD 2 O00000B 767 BS11 FOU 11 
002888 0000 649+CSTL7 DC A (¥-* CS STATUS WD 6, LAST DCB ADDRESS 00000C 768 BS12 EQU 12 
00288A 0000 650+CSTL8 DC A ( *-* CS STATUS WD 7, PREVIOUS HD/CYL 00000D 769 BS13 EQU 13 
00288C 0000 651+CSTLO DC A (*-* CS STATUS WD 8, CURRENT HD/CYL OO0000E 770 BS14 EQU 14 
00288E 0000 652+CST10 DC A (¥-* CS STATUS WD 9, FLAG/SECTOR OOO000F 771 BS15 EQU 1S 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
7173 OPY T7AOODCB 260CT77 887 * 
T7T4 &* (T7KOODCB) O0294E 201D 888 RKDCB DC X*'*201D! CONTROL WORD 
775 * 002950 0000 889 DC A (*-* FLAG / PHYSICAL SECTOR# 
DTG AR HR A HR HH HC I A RR I A RR a a a a a a a a aa ak UD B77 a OR OR Ck 002952 0000 890 pc A (*¥-* HEAD / CYLINDER#'S 
71717 * 002954 0000 891 DC uo? NOT USED 
7178 * DCB TABLES AND DC'S 002956 2988 892 DC afeaa) RSB ADDFPESS 
1719 * 002958 0000 893 DC A (* CHAIN ADDRESS 
780 2A OCI ROK ORO rR iakok daako ak loko gtok te toi ak tote ie ak ak 00295A 0004 894 DC X*000 BYTE COUNT 
7181 * 00295C 2864 895 DC A (SCTID) SECTOR ID DATA ADDRESS 
7182 ***** DIAGNOSTIC DCB 896 * 
783 * 897 **** READ MULTIPLE SECTOR IDS We 
OO28AE 2008 784 DGDCB DC x° 2006" DIAGNOSTIC DCB 898 * 
0028B0 0000 785 DC i FLAG / PHYSICAL SECTOR # 00295E 201C 899 RMDCB DC X*201C* CONTROL WORD 
0028B2 0000 7186 DC HEAD / CYLINDER#'S 002960 0000 900 DC A (*-* FLAG / PHYSICAL SECTOR# 
0028B4 0000 7187 DC ‘000 NOT USED 002962 0000 901 DC A (*-* HEAD / CYLINDER#'S 
0028B6 2988 788 DC bgp) RSB ADDRESS 002964 0000 902 DC Ftot NOT USED 
0028B8 0000 789 DC CHAINING ADDRESS 002966 2988 903 DC A (RSBA) RSB ADDRESS 
OO028BA 0100 790 DC ‘O10 BYTE COUNT 002968 0000 904 DC A pk CHAIN ADDRESS 
0028BC 0000 791 DC re *) DATA ADDRESS Q00296A 0084 905 DC X'OoO84! BYTE COUNT 
792 * 00296C 2998 906 DC A (ID00) DATA AREA ADDRESS 
793 ***** RECALIBRATE DCB 907 * 
7194 * 908 * CONSTANTS AND DEFINED DPORNGE LOCATIONS 
0001 795 CLDCB DC X*'OOOT! RECALIBRATE DCB 00296E 0000 909 ZEROO DC X'O000! NSTANT ZERO 
00000000000000000 796 DC TA (*-*) 002970 0001 910 ONE? DC X*0001! CONSTANT ONE 
797 * 002972 0000 911 RAY DC teach WRITE PARAMETER POINTER 
798 ***** WRITE SECTOR ID 002974 EB6D 912 WDATA DC X*EB6D! WRITE DATA 
199 * 002976 6BDB 913 DC X*6BDB! x 
0028CE 002D 800 WSDCB DC X"*O002D! WRITE SECTOR ID CNTL WORD 002978 0000 914 LGSEC DC X*OQO000! LOGICAL SECTOR # 
0028D0 0000 801 DC A (*¥-* FLAG / PHYSICAL SECTOR# 00297A 0000 915 PHYSC DC X*0000! CONVERTED PHYSICAL SEC # 
0028D2 0000 802 DC A (*-* HEAD / CYLINDER#'S 00297C 0000 916 WRSID DC X*QOOO0! FLAG,SECTOR (WRT SECTOR ID DATA) 
0028D4 0000 803 DC X¥*000 NOT USED 00297E 0000 917 DC X*Q000°% HEAD,;CYLINDER 
0028D6 2988 804 DC A (RSBA) RSB_ ADDRESS 002980 FF34 918 WSIDT DC X'FF34! WRITE SECTOR ID TEST DATA 
0028D8 0000 805 DC A (*-* CHAIN ADDRESS 002982 5678 919 DC X'*5678! * 
O0028DA 0004 806 DC X*000 BYTE COUNT 002984 0000 920 SCTST DC X*O0000! READ SECTOR ID TEST DATA BUFFER 
0028DC 297C 807 DC A (WRSID) ADDR OF SECTOR ID DATA 002986 0000 921 DC X'0000! 
808 * 002588 00000000000000000 922 RSBA_ DC i ee RESIDUAL STATUS ELOCK 
809 ***** READ SECTOR ID DCB 002994 Q000 923 CTRO2 DC X*0000! COUNTER 
810 * 002996 0000 924 CTRO3 DC X'OO000! COUNTER 
QO028DE 201C 811 RSDCB DC X'201C! READ SECTOR ID CNTL WORD 002998 0000 925 ID00 DC X'0000! ID ADDRESS TO BE SET BY USER 
0028E0 0000 812 DC A (*-* FLAG / PHYSICAL SECTOR# 00299A 1010 926 PDATA DC X'1010! WRITE DIAG WORD 1 DATA PATTERNS 
Q0028E2 0000 813 DC X'O000! HEAD / CYLINDER#'S 00299C 5555 927 DC X¥'5555! * 
Q028E4 0000 814 DC X¥*'0000! NOT USED 00299E AAAA 928 DC X'AAAA' * 
9028E6 2988 815 DC roa)? RSB_ ADDRESS 002980 FFFF 929 DC X'FFFF * 
0028E8 0000 816 DC = CHAIN ADDRESS 930 * 
OO28EA 0004 817 pc 4 to00 BYTE COUNT FOR READ SECTOR ID 931 Fa a oR a a a a a a a a a ae a oe a a 0 6/7 7 OR OR I OR ia aC ok 
OO28EC 2864 818 DC A ( (SCTID) SECTOR ID DATA ADDRESS 932. -% 
819 * 933 * SUBROUTINE 
820 ***** SFEK DCB ***K***x 934 * 
821 * 935 * PURPOSE 
OO28EE 0000 822 SKDCB DC X'O0008 SEEK DCB CONTROL WORD 936 * ; 
Q0028FQO 0000 823 DC X'O000! NOT USED 937 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 
0028F2 0000 824 DC obo HEAD ae tie te 938 * 
0028F4 0000 825 DC X*QQ00! NOT USE 939 * CALLING SEQUENCE 
O028F6 2988 826 DC A (RSBA) RSB ADDRESS 940 * 
0028F8 0000 827 DC A 000d CHAIN ADDRESS 941 * BAL CMPRW,R6 (NORMAL) 
OO28FA 0000 828 DC Xx*OQ000! NOT USED 942 * 
0028FC 0000 ee 2 pc X*'O0000! NOT USED ou : RETURN 
seu bacuhag CYCLE STEAL STATUS DCB **#**** x Que : BXS (R6,2) = NORMAL 
OO28FE 2000 833 CSDCB DC X*2000! CONTROL WORD 947] * 
002900 0000 P34 Dc F'or NOT USED 948 FORO OR IC OK OK oR OO a aii i iciok ka aK dak koko ak ak te ikke ok 
002902 0000 835 DC F'Q! NOT USED 949 * 
002904 0000 836 DC Ftgr NOT USED O0029A2 4724 0004 950 CMPRW MVWI COMPARE BYTE COUNT 
902906 0000 837 DC Ftor NOT USED Q0029A6 4324 2864 951 MVA SCT ID, R3 ADDR OF RD SEC ID DATA 
002908 0000 838 DC FtO* NOT USED OO29AA 4524 297C 952 MVA WRSID,R5 ADDR OF WR SEC ID DATA 
OO290A OQOO1A 839 DC X'OOTA! 13 WORDS OF STATUS OO29AE 2BA6 953 CFNEN (R3) , (R5) COMPARE ID DATA 
00290C 287C 840 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA 0029B0 68C0 0002 954 BE R6, 2) BCH IF WRITE ID DATA OK 
841 * 0029B4 68D2 0000 955 B R6) * COMPARE ERROR 
842 ***K*X WRITE DCB ******% KK 057 RICO IK IG OIC OK OR CC OK IO CK a ki i i tak i a i ac akc aca ake ak 
843 * 958 * 
OO0O290E 0028 844 WRDCB DC X'0028! hee DATA DCB CNTL WORD 959 * EXECUTE INPUT & OUTPUT COMMANDS 
002910 0000 845 DC A (*-* LAG / RECORD# 960 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
002912 0000 846 DC A (*-* EAD / CYLIDNER#! 961 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
002914 0000 847 DC A (*¥-* CAN / REPEAT COUNT 962 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 
002916 2988 848 DC A (RSBA) RSB ADDRESS 963 * SUPVR CALL. 
002918 0000 849 DC A (*-* CHAIN ADDRESS 964 * ° 
00291A 0100 850 DC x*0100! BYTE COUNT 965 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
00291C 0000 851 DC A (*-*) WRITE DATA ADDRESS 966 * . 
852 * 967 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
er i VERIFY DCB FEERETS ae x 2- ERROR INTERRUPTS RECEIVED FROM SUPVR 
002918 0019 855 VRDCB DC X'0019! CONTROL WORD 970 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
002920 0000 856 DC A (*-* FLAG / RECORD# 971 * ° 
002922 0000 857 DC A (*¥-* HEAD / CYLINDER#'S 972 * 1 BAL SRKEW,R6 READ SECTOR ID SKEWED 
002924 0000 858 DC A (*-* SCAN / REPEAT COUNT 973 * : 
002926 2988 859 DC A (RSBA) RSB ADDRESS 974 * 2 BAL SWKEW,R6 WRITE SECTOR ID SKEWED 
002928 0000 860 DC A (*¥-* CHAIN ADDRESS 975 * ° 
00292A 0000 861 DC A (*—-* BYTE COUNT 976 * 3 BAL SWSEC,R6 WRITE SECTOR ID 
Q0292C 0000 862 DC Ftor NOT USED 977 * « 
863 * 978 * 4 BAL SDIAG,R6 DIAGNOSTIC 
864 ***** READ DCB He He ke 979 * . 
P 865 * 980 * 5 BAL XIOCS,R6 CYCLE STEAL STATUS 
00292E 2018 866 RDDCB DC X*2018! READ DCB CONTROL WORD 981 * « 
002930 0000 867 DC A (*-* FLAG / RECORD# 982 * 6 BAL SSEEK,R6 SEEK 
002932 0000 868 DC A (*-* HEAD / CYLINDER#'#S 983 * * 
002934 0000 869 DC A (*-* SCAN / REPEAT COUNT 984 * 7 BAL SRECL,R6 RECALIBRATE 
002936 2988 870 DC A (RSBA) RSB ADDRESS 985 * ° 
002938 0000 871 DC A (*-* CHAIN ADDRESS 986 * 8 BAL SRDID, R6 READ SECTOR ID 
00293A 0100 872 DC X*01008F BYTE COUNT 987 * * 
00293C 0000 aan " DC A (*-*) READ DATA ADDRESS at . 9 BAL SRD, R6 READ 
ose vies WRITE SECTOR ID SKEWED KKK oat : 10 BAL SRDVY,R6 READ VERIFY 
Q00293E 002F 877 WKDCB DC X*OO2F! CONTROL WORD 992 * 11 BAL SWRT,R6 WRITE 
002940 Q000 878 DC A (*-* FLAG / PHYSICAL SECTOR# 993 * 
992942 0000 879 DC A (*- HEAD / CYLINDER#'#S 994 * 12 BAL SRDIM, R6 READ MULTI SECTOR IDS 
002944 0000 880 DC F*Ot NOT USED 995. * 
902946 2988 881 DC A (RSBA) KSB ADDRESS 996 RIO IO OO IO IOI IO OR CK OK OO OR OI I RRR IR tok tok i kai ik aka 
002948 Q000 882 DC A (*—-* CHAIN ADDRESS 99.7 * 
NO294A QO004 883 DC X*OOO48 BYTE COUNT 0029B8 4020 2BD0O 28EE 998 $SEEK MVA SKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
00294C 297C Soe - DC A (WRSID) ADDR OF SFCTOR ID DATA 0O029BE 507F 1000 e J XIO 
886 **** READ SECTOR ID SKEWED * KKK 0029C0 4020 2BD0 28BE 1001 S$RECL MVA CLDCB, IODCB SET UP BLOCK FOR SVC CALL 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0029C6 507B 1002 J XIO 1680+t+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 
1003 * 1681+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
0029cC8 4020 2BD0O 28DE 1004 $RDID MVA RSNCB, IODCB SET UP BLOCK FOR SVC CALL 1682+* ISSUED BY THIS SUBROUTINE. 
O0029CE OBBB 1005 MVBI X"BB*,~R3 SET BUFFER TO BIS 1683+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON ISSUE A 
0029D0 4524 2864 1006 AVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 1684+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
0029D4 4724 0004 1007 MVWI 4,R7 SETUP BUFFER LENGTH 1685+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 
0029D8 Z2BAC 1008 FFN R3 es INIT READ SECTOR: ID BUFFER 1686+ 
OO2Z9DA 4020 28EC 2864 1009 MVA Sct D,PSDCBt+14 DATA ADDR 1687+* CALLING SEQUENCE 
0029R0 506E 1010 J XIO 1688+% 
1011 * 1689+ THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
O0OO029E2 4020 2BD0O 2958 1012 S$RDIM MVA RMDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 1690+ 
0029E8 4724 OO8Y 1013 MVWI1 132 R? SET BUFFER LENGTH 1691+* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND MOD=0 
OO029EC 4524 2998 1014 MVA 1D06 ,R5 SET BUFFER ADDRESS 16924+* ~--> BAL XIO1 MOD PARM PRELOADED IN 'Tomob: 
0029F0 OBBB 1015 MVBI X' BB R3 SET CLEAR CHARACTERS 1693+* -~-> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS MOD=F 
0029F2 2BAC 1016 FFN R3 (R5) CLEAR THE BUFFER 1694+* --> BAL XIOCS-4,R6 AUTO CS STATUS Me OTHER X¥IO 
O029F4 5064 1017 F J X10 1695+% é AND DOES NOT POST INTERRUPT STATUS) 
+ 
0029F6 OBFF 1019 $RD MVBI X'FF!,R3 SETRD BUFFER TO ALL FS 1697+* RETURN CONTROL 
0029F8 6D08 293C 1020 MVW RDDCB+14,R5 SET UP READ BUFFER ADRS 1698+%* 
OO029FC 6FO08 293A 1021 MVW RDDCB+12, R7 SET UP BUFFER LENGTH 1699+%* BXS R6, 2) RETURN TO USER NO ERROR 
002A00 2BAC 1022 FFN R3 Aboh CLEAR READ BUFFER 1700+* OR B R6) * RETURN AND RETRY ON ERROR 
002A02 4020 Z2BDO 2I2ZE 1023 SRDS NVA RpDp B, ODCB SET UP BLOCK FOR SVC CALL SAUME Rt St SS SS SS SS SS SSS SSS SS ST SS SPSS TSS SS SSS STS SS SSS SS SSS SS SSP eet eS PSL SS 2 2 22 2 
002A08 505A 1024 J To OOZABE CB25 2BD2 1703+XI0O HVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
1025 * OO2AC2 500E 1704+ J XIO1 CS I/O'S ARE NOT RETRIED 
OO2ZA0A 4020 2BDO 291E 1026 $RDVY MVA VRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 1705+* 
002A10 5056 1027 J XIO OO2AC4 4O20 2BD2 OOOD 1706+XIODG MVRI X*OOOD!,IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 
1028 * OO2ACA SOOA 1707+ J XIO1 GO TO CS OPS 
002A12 4020 2BDO 290E 1029 $WRT MVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 1708+* 
002A18 5052 1030 J XIO OO2ZACC 4CAA 1709+ TBTR R4&,CE RESET CS STATUS INTER ERROR INDICAT. 
1031 * OO2ZACE 4C68 1710+ TBTS R4&Y,CS SET 'CYCLE STEAL STATUS! IN PROGRESS 
OO2ZATA 4020 2BD0O 294E 1032 S$RKEW MVA RKDCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL 002A5D0 4020 2BD0O 28FE 1711+XIOCS MVA SDCB ODCB SET UP CONTROL BLOCK FOR SVC CALL 
002A20 OBBB 1033 MVBI X' BB! ,R3 SET BUFFER TO B'S OO2AD6 4020 2BD2 OOOF 1712+ MVWI X'OO0OF', TOMOD SET CYCLE STEAL MODIFIER 
002A22 U524U 2864 1034 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS OO2ZADC 4C28 1713+ TBT R4¥,CS) IS CS IN PROGRESS ERROR CONDITION 
002A26 “724 OOOY 1035 MVWI 4,R7 SETUP BUFFER LENGTH OO2ZADE 1213 1714+ JON Toe * YES BYPASS SAVING I/O ADRS 
OO2ZA2A 2BAC 1036 FFN R3 ts INIT READ SECTOR ID BUFFER OO2AE0 6EOD 2862 1715+XI01 NHVW R6,LSTIO SAVE FAR FOR RETRY IF REQUESTED 
QOO2ZA2C 4020 295C 2864 1037 MVA Sch D, RKDCB+14 DATA ADDR OO2ZAEY4 4324 286C 1716+ MVA DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 
002A32 5045 1038 J XIO OO2Z2AE8 6D08 2BDO 1717+ MVW IODCB,R5 * AND THE FROM ADRS ALONG WITH 
1039 * OO2AEC OF1TA 1718+ MVBI 26,R7 * THE NUMBER OF MOV ES 
002A34 4020 2BDO 293E 1040 $WKEW MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL OO2ZAEE 2D64 1719+ MVFN SB) §R3) MOVE 1 STATUS WORD AND ADJUST 
OO2A3A 4020 294C 297C 1041 MVA WRSID, WKDCB+14 DATA ADDR OO2ZAFO OBFF 1720+ MVBI 55 BR CLEAR CYCLE STATUS BUFFER 
002A40 5038 1042 J tO OO2ZAF2 4524 287C 1721+ MVA  CSBOF,RS5 * TO ALL ONES #* 
1043 * OO2ZAF6 OFT1A 1722+ MVBI 26,R * 
O02A42 4020 2BDO 28CE 1044 $WSEC MVA WSDCB, IONDCB SET UP CONTROL BLOCK FOR SVC CALL OO2ZAF8 2BAC 1723+ FFN R3 4B) * 
002A48 4020 28Dc 297C 1045 MVA  WRSID,WSDCB+14 DATA ADDR OO2ZAFA 4020 285E 0708 1724+ MVWI x*6708',$I0IN OVERLAY OLD CONDITION CODES 
OO2A4E 5037 1046 : J XIO 002B00 CB25 2860 1725+ | MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 
002A50 4020 2BDO 28AE 1048 $DIAG MVA  DGDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL OO2B04 4CA1 1727+ TBTR (R4,ER RESET ANY ERROK BEFORE I/0 COMMAND 
002856 5033 1049 J XIO 002B06 4CA3 1728+XI02 TBTR (R4-IN CLEAR INTERRUPT RECEIVED CNTL BIT 
1050 * 002B08 4724 2BCC 1729+ MVA OBLK, R7 SET UP CONTROL BLOCK FOR SUPVR 
002A58 6E0D 2862 1051 $WRTO MVW  kR6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 002B0C 4CA6 1730+ TBTR (R4,$LE) RESET LEVEL ERROR INDICATOR 
OO2A5C OBFF 1052 MVBI 256 R3 CLEAR CYCLE STATUS BUFFER OO2BOE 4C62 1731+ TBTS R4 XT) SET EXPECTED INTR CONTROL BIT 
OO2ZA5E 4524 287C 1053 MVA  CSBUF,RS5 * TO ALL ONES ¥* 002B10 600A 1732+ SVC TART CALL SUPVR FOR I/0 COMMAND 
OO2AK62 OF16 1054 MVBI 22,R7 * 1733+%* 
002a64 2BAC 1055 FFN R3 KR5) * 002B12 4CA7 1734+ TBTR (R4,NI) IS AN INTR EXPECTED 
002066 4524 286C 1056 MVA  DCBUF,RS5 CLEAR DCB BUFFER TO ALL ONES 002B14  6ACO 0002 1735+ BN R6, 2) * NO, RETURN TO USER 
OO2ZA6A OF10 1057 MVBI 16,R7 x 1736+%* 
O02A6C 2BAC 1058 FFN R3 SRS) * 1737+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
OO2A6E 4020 285E 0708 1059 MVWI x'6708",SIOIN OVERLAY OLD CONDITION CODES 1738+% 
OO2Z2A74 CB25 2860 1060 MVWZ S$ISB,R3 ZERO OUT OLD ISB VALUE 002B18 4524 0000 1739+ MVWI 0,R5 SET UP WORK REG FOR '!LOST INTR! 
002A78 YCA3 1061 TBTR RG, IN CLEAR INTERRUPT RECEIVED CNTL BIT O0OO02B1C 4WCA3 1740+XI08 TBTIR (Ra IN) HAS INTERRUPT BEEN RECEIVED 
OO2ZA7A 4CAT 1062 TBTR R4,ER RESET ANY ERROR BEFORE I/0 COMMAND OO2BIE 1239 1741+ JON TocK * YES, CHECK IF ALL WAS SATISFACTORY 
OO2ZAT7C 4C62 1063 TBTS R4,XxI SET EXPECTED INTR CONTROL BIT 002B20 6002 1742+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
OO2ZA7E 4724 2BCC 1064 MVA oBLK, 7 SET UP CONTROL BLK FOR SUPR 1743+* SUPVR WILL RETURN HERE 
002A82 C020 2BD3 1065 MVB TOMOD+1,R0 GET IDCB FUNC/MODIFIER 002B22 6002 1744+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
002A86 4QO2D 2BD2 OOFO 1066 RBTWI X'OOFO! ,IOMOD REMOVE FUNCTION FROM tIOMOD! 1745+* SUPVR WILL RETURN HERE 
OO2A8C 3022 1067 SRL 4,RO RIGHT JUSTIFY FUNCTION BITS IN RO O0O02B24 7DA1 0001 1746+ AWIL 1,R5 ADVANCE TIME OUT COUNT 
OO2ZA8E F005 1068 CBI 5,R0 IDCB FUNCTION = 5? 002B28 18F9 1747+ JNZ xf08 BCH IF TIME OUT NOT REACHED 
002A90 1003 1069 JE $ART1 YES - ISSUE 'SVC WRIT! OO02B2A 4UC61 1748+ TBTS R4, ER) SET ON ERROR CONTROL BIT 
002A92 6010 1070 SVC WRITO ISSUE WRITE DPC "4Xt OP QO2B2C 68D2 0000 1749+ B R6) * ERR 'NO INTERRUPT! 
OO2A94 6802 2B18 1071 B X¥IO8—-4 GO WALT FOR THE INTERRUPT 1751 4 RK RK OR I kk io eo ko lok kk oak ok doko kk tok k tok kok ak gokok do kk JF ERT 6 ** 
002A98 6011 1072 $WRTIT SVC WRIT ISSUE WRITE DPC '5X*t OP 1752+* 
OO2ZA9A 6802 2B18 O38 " B XIO8-4 GO WALT FOR THE INTERRUPT Areas SUBROUTINE 
+ 
OO2A9E 4020 2BD0 2905 1075 $DGWR MVA  WRDCB,IODCB SET UP CONTROL BLK FOR SVC CALL 1755+* I/O EXECUTE ERROR HANDLING ROUTINE 
OO2ZAA4 6802 2AC4 1076 B XIODG ISSUE START CS DIAG CMD 1756+* 
1077 * 1757+* PURPOSE 
OO2AA8 4020 2BDO 292E 1078 $DGRD MVA RDDCB, IODCB SET UP CONTROL BLK FOR SVC CALL 1758+* 
OOZAAE 6F08 293A 1079 MVW RDDCB+12,R7 GET NO. OF BYTES TO CLEAR 1759+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
OO2ZAB2 6D08 293C 1080 MVW RDDCB+14, R5 ADDR OF READ BUFFER 1760+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 
OO2AB6 OBFF 1081 MVBI X'FFt,R3 CLEAR TQ FS 1761+* SUPERVISOR AND If WAS NOT ACCEPTED. 
O002AB8 2BAC 1082 FFN R3, (R5) * 1762+* 
OO2ABA 6802 2ACY4 1083 B XI G ISSUE START CS DIAG CMD 1763+* CALLING SEQUENCE 
1085 COPY T7AXEQ OOMARTS 17644+%* 
Aes ny yeG OFF eee SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 
+ 
Tee EEE EEE EEE IE EEE OE EE EEE ES SO EEO EEE ici # 246429 JU L764 1767+* RETURN CONTROL 
16524+* 1768+% 
1653+* SUB-ROUTINE 1636 B (R6) * RETURN TO USERS ERROR HANDLER 
+ 
1622 EXECUTE INPUT AND OUTPUT COMMANDS Ne re eee Oe Gee ee en ee ae NORE eT eevee eee ees t 
1656+* 2+ 
1657+* PURPOSE 1773+* CC O= DEVICE NOT ATTACHED 
1658+* 1774+* FOR 1= DEVICE BUSY 
1659+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 1775+* I/O 2= DEVICE BUSY AFTER RESET 
1660+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 1776+* 3= COMMAND REJECT 
1661+* 1777+* Y= INTERVENTION REQUIRED 
1662+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 1778+* 5= INTERFACE DATA HECK 
1663+* THE I/O COMMAND. 1779+* 6= CONTROLLER BUSY 
1664+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 1780+* T= I/O COMMAND EXCEPTED 
1665+* ISSUED BY THIS SUBROUTINE. 1781+* 
1666+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 002B30 JTO6E 1782+XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 
1€67+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 002B32 336A 1783+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 
1668+* YW. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 002B34 C328 285E 1784+ MVB R3,$10IN * PUT IN LOG OUT AREA 
1669+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 002B38 68D2 0000 1785+ B (R6) * RETURN TO USER ERROR HANDLER 
1670+* MYSTERY INTERRUPT (MI CONTROL BIT IS SET. TTB 7 tH RR RE RK kk loko rok tok rok kk RI kak koto tok ok OK 1 A DRT 6 ** 
1671+* 5. MOVES THE ADDRESS OF HE I/O CONTROL BLOCK IN R7 SET THE 1788+* IL 
1672+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE tsyv& START. 1789+* SUB-ROUTINE IL 
1673+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 1790t* IL 
1674+* STARTS TO DETERMINE A LOST INTERRUPT. 1791+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL *S$INTL! IL 
1675+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 1792+* IL 
1676+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 1793+* PURPOSE IL 
1677+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 1794+* IL 
1678+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 1795+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR TL 
1679+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 1796+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
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179 7+* EXPECTED CODE. IL 1913+* 
1798+* IL 002BCC 19D0 1914+#IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
1799+* CALLING SEQUENCE Tl 00O2BCE 2B30 1915+ DC A (XIOER) ERROR ROUTINE ADRS 
1800+* IL 0OO2BD0 0000 1916+IODCB DC A (*¥-* DCB ADRS OR LEVEL & INTR 
1801+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT It 002BD2 0000 1917+IOMOD DC A (*-* MODIFIER 
1802+* IL OO2BD4 0000 1918+ DC A (*-* ADRS OF LAST SVC CALL 
eg RETURN CONTROL IL 002BD6 0000 1919+TORSP DC A (*-* SECOND WORD OF LAST IDCB 
+ + 
1e05ts SVC EXIT RETURN TO USER VIA SUPVR IL 1921+* INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
+ + 
1807 + 2 OR a Oo a OI RC GR aK ok gobo doko ok TT O0OO2BD8 19D0 1923+INTBL DC A ENEORY” ADRS OF DEVICE ADRS 
1808+* IL OO2BDA 2B60 1924+ DC A (INTOK INTERRUPT OK RETURN ADRS 
1809+* CC O= CONTROLLER END ISB O= ADD STATUS IL OO2BDC 2B3C 1925+ DC A (INTER INTERRUPT ERROR ADRS 
1810+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL OO2BDE 0003 1926+INTCC DC X'0003! INTERRUPT CODE EXPECTED 
18114+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 13etavncc BERNER EERE COD at SEonay 
1812+* 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 1929+* ’ 
1813+* 4= ATTENTION INTERRUPT 4= STG DATA CK IL 1930+* SUBROUTINE 
18144+* S= ATTENTION / PROGRAM CNTL INTR S5= INV STG ADRS IL 1931+* 
1815+* 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK TL 1932+ CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
1816+* 7= ATTENTION / DEVICE END INTR 7= I-FACE DATA IL 1933+* 
1817+ IL 1934+* PURPOSE 
002B3C 706E 1818+INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 19354+* 
002B3E 336A 1819+ SRL 13,R3 POSITION INDICATORS IN R3 IL 1936+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
OO2B40 4424 2856 1820+ MVA OPfN1, R4 SET UP BASE ADRS IL 1937+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
OO2B4U4 4C28 1821+ TBT (Ra c§) IS CS IN PROGRESS IL 1938+ TO INTERRUPT. 
002B46 1006 1822+ JOFF INTES * NO IL 1939+% 
OO2B4U8 4C6A 1823+ TBTS (R4 CE) TURN ON CYCLE STEAL INTER ERROR TL 1940+* CALLING SEQUENCE 
OO2B4UA 6FOD 286A 1824+ MVW R7,DEV SAVE CS ERR ISB VALUE, BITS 0-7 IL 1941+% 
OO2B4UR C328 286B 1825+ MVB R3,DEV4+1 * AND THE COND CODE IL 1942+% THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
002B52 500A 1826+ J INTR1 IL 19434% 
OO2B54 4c24 1827+INTES TB (Ra XE) TEST EXPECTED ATTEN / ERROR IND TT 19444+* --> BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 
002B56 1002 1828+ JOFF ntht BCH IF NOT EXPECTED IL 1945+* --> BAL $CONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 
002B58 F304 1829+ CBI 4ueR3 IS THIS AN 'ATTENTION' INTR IL 1946+* 
OO2BS5A 1006 1830+ JE ThtR1 * YES, BCH TO END INTR SEQUENCE IL 1947+* RETURN CONTROL 
00O2B5c 4C61 1831+INTET TBTS (Ra ER) set ERROR ON I/O COMMAND CNTL BIT IL 1948+ 
00O2B5E 5004 1832+ J nth IL 1949+ BXxs R6, 2) RETURN TO USER VIA REG 6 IF OKAY 
1833+* THE ERROR INTERRUPT USES THE SAME IL 1950+* OR B R6) * IF THE DEVICE COULD NOT BE CONNECTED 
18344+* ENDING SEQUENCE AS THE NORMAL INTR IL 19514+* 
1B 3 6H RH HK He He he ee ae he Hee eRe oe Re 2 2 he 2 i hc i fe ic 2 2h 2 ae fe ae oe ae oe he i oi fe he he ae 2 fc iC i i oC 2K aK oi ok *EKKXTOAPRISGIL ob PeP Le Let Stet SSS SS SL ST TSS SPS SSL SSS SSS SSL SSS SSS SSS SSS SSS SSS CSS SS SSSCL LL £2 2 2 
1837+ IL OO2BEO OFO06 1953+$CONC MVBI 6, R7 NOMBER OF BYTE TO CLEAR 
1838+* SOUBROUTINE TL OO2BE2 0OBOO 1954+ MVBI * AND THE DATA TO USE 
1839+* - IL OO2BE4 4524 2864 1955+ MVA Devi at * ALONG WITH THE ADES TO USE 
18404+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL! IL OO2BE8 2BAC 1956+ FFN (8 ot * 
1841+%* IL OO2BEA CB25 285A 1957+ MVWZ Rot 3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
1842+* PURPOSE IL OO2BEE 4724 2BD8 1958+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 
18434+* IL OO2BF2 6014 1959+ SVC CICB * CONNECT IT TO THIS DEVICE 
ae TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL OO2BF4 6AD0 0000 ere BN (R6) * ERROR RETURN TO USER 
+ 
1846+* CALLING SEQUENCE IL OO2BF8 8828 289C 2BD0 1962+$CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER 
1847+ . IL OO2BFE 4724 2BCC 1963+ MVA TOBLK,R SET R7 TO CONTROL BLOCK TO PREPARE 
1848+ SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 002C02 4020 285E 0708 1964+ MVWI xX'0O708',$IOIN INITIALIZE CONDITION CODE STORAGE 
1849+ THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 002C08 CB25 2860 1965+ MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 
1850+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 002C0C 6E0D 2862 1966+ MVW R6,LSTIO SET UP ADDRESS THAT STARTED LAST I/0 
1851+ COMMON SECTION IS HANDLED HFRE. IL 002c10 600C 1967+ Svc PREP AND CALL ON SUPVR 
1852+% IL 002C12 5601 1968+ (R6, 2) RETURN TO USER 
eer RETURN CONTROL TIL 19701 arora ace UE ears araace igor OF EA EE AIOE $84 06 ART 644 
+* IL +* 
1855+% SVC EXIT RETURN TO USER VIA SUPVR il 142i8 SUBROUTINE 
+ 
1857 40k CO ICC OR a a a aC aca iok i cick ak dak totic dotckokactctokdok ck TT 1974+ DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
00ZB60 T7O6R 1858+INTOK CPLSP R3 COPY STATUS ANY LEVEL INTO R3 TL 1975+ 
002B62 336A 1859+ SRL 13,R3 POSITION INDICATORS IN R3 IL 1976+* PURPOSE 
OO2B64 4424 2856 1860+ MVA OPTN1, R4 SET UP BASE ADRS IL 1977+ 
002B68 4C63 1861+INTR1 TBTS R4,IN SET INTERRUPT RECEIVED IL 1978+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
0OO2B6A 4C28 1862+ TBT R4,C IS 'CS IN PROGRESS! ON IL 1979+ SET THE 'NO GOOD" CONTROL BIT, THEN LOG THE DATA THAT HAS 
00O2B6C 1204 1863+ JON wrh2 * YES, BCH AROUND UPDATE IL 1980+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
OO2B6E C328 285F 1864+ MVB R3,S101N+t1 SAVE {NTERRUPTING CC CODE IL 1981+* 
002B72 6FOD 2860 1865+ MVW R7,$1SB SAVE INTR STATUS AND DEV ADRS TL 1982+* CALLING SEQUENCE 
002B76 18664INTR2 EQU * IL 1983+* 
1867+* CPCL R5 CURRENT LEVEL COPIED BY DCP IL 1984+ THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
002B76 3521 1868+ SLL QRS POSITION INTR LEVEL AND PUT IL 19854* 
002B78 0501 1869+ ABL 1,R5 * IN ‘I BIT IL 1986+* --> B SERRS SET 'NG' BIT AND CONVERT DATA TO LOG 
OO2B7A CD24 289C 1870+ CW SINTL, RS IS THIS THE CORRECT INTR LEVEL iL 1987+* --> B $CONX RETURN TO MDI SUPERVISOR TO TEST STS 
OO2B7E 1002 1871+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 1988+* 
002B80 4C66 1872+ TBTS RY, SLE) SET INTR LEVEL ERROR CONTROL BIT IL 1989+* RETURN CONTROL 
002B82 4C61 1873+ TBTS R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 1990+* 
OO2B84 4CA2 1874+INTR3 TBTR RY, XI WAS INTERRUPT EXPECTED IL 199 14% B TURTN* RETURN TO MDI 
002B86 1204 1875+ JON wrkx * YES, EXIT OFF THIS INTR LEVEL IL 1992+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
002B88 4C60 1876+ TBTS (Re MT) * NO, SET MYSTERY INTR CONTROL BIT IL 1993+ 
OO2B8A F304 1877+ CBI R3 ATTENTION INTERRUPT? IL 199 U4 kK KK RR OI IOI IC RO ai I IK IK i a kkk kak ak iit te ikoke ak teak akoakcate ak 
0OO2B8C 1001 1878+ JE TATRX YES IL 002C14 4020 1818 8000 1995+$ERRS MVWI X*8000* , TUSTATUS SET ON ‘NO GOOD' STATUS BIT 
OO2B8E 4CcCéC 1879+ TBTS (Rs NG) ERROR,UNEXPECTED INTERRUPT IL OO2C1A 4724 2DE4 1996+ MVA HEBLK,RJ GET ADRS OF CONTROL BLOCK 
002B90 6006 1880+INTRX SVC XI? y HIS LEVEL VIA SUPVR TO PGM TL OO2C1E €01A 1997+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
VB BD ERRKK ERK KK CICK OR IO RK Ar IC Fok kik 4k kok tk KK KO SF EBT 6x 002C20 4020 188E 4040 1998+ MVWI X"*4O4O*", TUWORK+116 
1883+* 002C26 4020 1890 4040 1999+ MVWI X'4OQ4UO', TUWORK+118 
1884+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 002C2C 4020 1892 4040 2000+ MVWI X*"4O40", TUWORK+120 
1885+ HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 002C32 ODO4 2001+$PRNT MVBI 4,R5 
1886+* RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 002C34 4324 181A 2002+ MVA TOUWORK, R3 SET UP BUFFER STORAGE 
1887+* 002C38 6B0D 2DDC 2003+ MVW  R3 BUEbE 
1888+% 002C3C 4124 2cB8 2004+ MVA  LIfE1,R1 
002B92 4CA4 1889+XIOCK TBTR R4,XE) WAS AN ERROR EXPECTED 002C40 OFOY 2005+ MVBI 4,RT7 
002B94 6ACO 0002 1890+ BN R6, 2) * YES, FXIT THIS ROUTINE 002C42 OFO8 2006+ MVBI 8,R6 
002B98 4CA8 1891+ TBTR (R4,CS) WAS ATO CS IN PROGRESS 002C44 2824 2007+MVBUF MVFN (83). (21) 
0OO2B9A 1006 1892+ OFF Tocv * NO, CONTINUE CHECKING 002CH6 OFOY 2008+ MVBI gk 
OO2B9C 4C2A 1893+ TBT (RA CE) ts CS IN AN ERR CONDITION 002C4u8 OA4O 2009+ MVBI x'4O',R2 
002B9E 1002 1894+ JOFF xXI0co * NO, BCH OO2ZCHA C258 2010+ MVB R2 gets 
002BA0 68D2 0000 1895+ B R6) * CS ERROR 002C4C BEFB 2011+ JCT MVBUF,R6 
OO2BA4 4C69 1896+xXIOCO TBTS R4,CSA) TURN ON Ros STATS AVAIL FLAG OO2C4HE OFODB 2012+ MVBI 8,R6 
OO2BA6 5601 1897+ BXS R6,2 GO TO USER 002C50 7921 002Cc 2013+ AWI 44,R1 
OO2BA8 4C21 1898+XIOCV TBT R4,ER) WAS ERROR INTR CONTROL BIT ON 002C54 BDF7 20144 JCT MVBUF,R5 
OO2BAA 100D 1899+ JOFF IOcXx * NO, EXIT THIS ROUTINE 002C56 4020 1802 FIFO 2015+ MVWI PIDMSG10,PID+2 
1900+* 002C5Cc 4020 19B8 2DE2 2016+ MVA FAKETU,@DCADD1 
OO2BAC C520 285F 1901+ MVB SIOIN+1,R5 GET LAST INTR CC CODE 002cC62 4020 19BA 2DDE 2017+ MVA DC2PT, ADCADD2 
0O2BBO0 F502 1902+ CBI 2,R5 IS THIS CC=2 002C68 402c 19C4 0080 2018+ OWL BITO080, SUPSTAT 
002BB2 1003 1903+ JE XIOCQ YES 0OO2C6E 4324 285c 2019+ MVA $TUID, R3 SET UP BUFFER STORAGE 
OO2BB4 F506 1904+ CBI 6,R5 IS THIS CC=6 002C72 6F13 18BA 2020+ BAL TUMSGATR*,R7 GO TO MESSAGE WRITER 
0OO2BB6 68D1 0000 1905+ BNE (Re) * * NO, BCH TO ERROR HANDLER 2021+* 
OO2BBA C520 2860 1906+XIOCO MVB ISB, R5 GET £AST ISB DATA BYTE AND IF cs 002C76 2022+$CONX EQU * 
OO2BBE 6A00 2ACC 1907+ BN xroc§-4 * AVAILABLE, GO AND GET 002C76 C720 19D0 2023+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
002BC2 68D2 0000 1908+ B (R6) * ERROR OO2C7A 6013 2024+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
0O2BC6 CB25 285A 1909+XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 002C7C 6812 289K 2025+ B TURTN* RETURN TO MDI SUPERVISOR 
OO2BCA 5601 1910+ BXS (R6, 2) RETURN TO USER VIA REG 6 2026+* 
1911+%* 002C80 0009 2027+BEGIN DC A(0009 NUMBER OF LINES TO PRINT 
1912+%* 1/0 PARAMETER LIST 002C82 0008 2028+ DC A (0008 LINE LENGTH = 8 CHAR 
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LTAAS A> TAG PARITY FAILURE MAP P/N=6826981 EC=375222 PAGE 07 LIAS === TAG PARITY FAILURE MAP P/N=6826981 EC=375222 PAGE O7A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
O0O02C84 ScC5C4OCIC2D6D9E3 2029+ DC C'** ABORT! DECLARED NAME ATTRIBUTES AND REFERENCES 
002C8C 0028 2030+ DC A (0040) LINE LENGTH = 40O CHAR 
OOZCSE E3ZE4C9OCHHOCIDECID 2031+ DC C'TUID IOIN ISB INST SECT ID DATA CSCC ! 1953 $C ONC ADDRESS. HEX LOCATION (OO002BE0) IN CSECT(I7A13 ) LENGTH (2) 
0O02CB6 0028 2032+ DC A (0040) LINE LENGTH = 40 CHAR 2084 2120 
QO2CBB8 4O4O4O4OKOFO4OKOY4 20334+LINE1 DC Om ' 1078 S$DGRD ADDRESS. HEX LOCATION (OOOO2AA8) IN CSECT(I7A13 ) LENGTH (6) 
QO2Z2CEO 0028 2034+ DC A(0040) LINE LENGTH = 40 CHAR 2134 
QO2CE2 C3D5E3D340C4C3C2F 2035+ DC C'CNTL DCB1 DCB2 DCB3 DCB4 CHAD BYCT ADRS ! 659 SINTL ADDRESS. HEX LOCATION (0000289C) IN CSECT(I7A13 ) LENGTH (2) 
OO2D0A 0028 2036+ DC A (0040) LINE LENGTH = 40 CHAR 1870 1962 
OO2D0C H4O4OKOKOKOUO4ONOY 20374+LINE2 DC Cc : 6 24 SIOIN ADDRESS. HEX LOCATION (O0000285E) IN CSECT(I7A13 ) LENGTH (2) 
002D34 0028 2038+ DC A (0040) LINE LENGTH = 40 CHAR 1059 1724 784 1864 1901 1964 
002D36 C3E260FO40OC3E260F 2039+ DC CtcS=0. CS=1 CS-2 CS=3 CS-4 CS-5 CS-6 CS-7 * 625 SISB ADDRESS. HEX LOCATION(00002860) IN CSECT(I7A13 ) LENGTH (2) 
OO2D5E 0028 2040+ DC A (0040) LINE LENGTH = 40 CHAR 1060 1725 1906 1965 
OO02D60 4O404OKO4OK4OKOKO4 20414LINE3 DC ci ' 609 SLE ABSOLUTE. HEX VALUE (00000026) 
002D88 0028 2042+ DC A(0040) LINE LENGTH = 4O CHAR 1730 1872 
OO2D8A C3E260F840C3E260F 2043+ DC C*CS-8 CS-9 CS-A CS-B CS-C ' 623 $TUID ADDRESS. HEX LOCATION (0000285C) IN CSECT(1I7A13 ) LENGTH (2) 
002DB2 0028 2044+ DC A (0040) LINE LENGTH = 40 CHAR 69 2019 2057 082 2118 
OO2DB4 404040404 04040404 Scie DC Cc! ' 1051 SWRTO Saob te LOCATION (00002A58) IN CSECT(I7A13 ) LENGTH (4) 
+ 
QOO2DDC 0000 2047+BUFPT DC A oor 1072 $WRT1 ADDRESS. HEX LOCATION (00002A98) IN CSECT(I7A13 ) LENGTH (2) 
O0OO2DDE 2Cc80 2048+DC2PT DC A (BEGIN) 069 
OO2DEO0 0101 2049+FIXTU DC X*O1018 102 @DCADD1 ADDRESS. HEX LOCATION (000019B8) IN CSECT (I7A13 ) LENGTH (1) 
OO2DE2 0101 2050+FAKETU DC xX*0101! 01 
OOF1TFO 2051+PIDMSG10 EQU X'FIFO! 103 @DCADD2 ADDRESS. HEX LOCATION(QO0019BA) IN CSECT(I7A13 ) LENGTH (1) 
000080 2052+BITO0080 EQU X'0080! 2017 
2053+* 39 @FIXT ABSOLUTE. HEX ea ie 
2054+* DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC Wy] £65 477 480 
2055+* 41 @GOTO ABSOLUTE. HEX aed tke, 
OO2DE4 OO3A 2056+HEBLK DC A ah » NUMBER OF BYTES TO CONVERT 381 399 417 450 
0OO2DE6 285C 2057+ DC A($TUID FROM ADRS 44 @QUXX ABSOLUTE. HEX VALUE (00000400) 
OO2DE8 181A 2058+ DC A (TUWORK) AND THE TO ADRS 456 468 
2059 COPY T7A28 19MAY78 45 @TUXX ABSOLUTE. HEX ee mea et 
2060 T7A28 TUIT X7A28 369 387 405 423 435 
GOON rt er ere Pe greene ee wether nee erst Aen tae one 2027 BEGIN sees HEX LOCATION (00002C80) IN CSECT(I7A13 ) LENGTH (2) 
+ 
Snel TEST UNIT 2052 BITOO80 gee HEX VALUE (00000080) 
+ 
A ie WRITE DIAGNOSTIC REGISTER 1 LOOP 2047 BUFPT pape HEX LOCATION (OOOO2DDC) IN CSECT (I7A13 ) LENGTH (2) 
+ 
2067+* PURPOSE 613 CE ABSOLUTE. HEX VALUE (0000002A) 
2068+%* 1709 1823 189 
2069+* WRITE TO CAP DIAGNOSTIC WORD 1 USING DATA PATTERN PASSED 698 CICB ABSOLUTE. HEX VALUE (00000014) 
2070+* TO TEST UNIT BY MAP. NO RESULTS WORDS ARE RETURNED. 1959 
2071+%* 795 CLDCB ADDRESS. HEX LOCATION (000028BE) IN CSECT(I7A13 ) LENGTH (2) 
2072+* CALLING SEQUENCE 1001 
2073+* 611 CS ABSOLUTE. HEX yee oo anes 
2074+%* MDI=$STUXX,*'T7A28,REPT=L7A28, PLNG=4, PARM=XXXX* 1710 1713 1821 #1862 1891 
2075+* 612 CSA ABSOLUTE. HEX VALUE (00000029) 
2076+* RETURN CONTROL 1896 
2077+* 642 CSBUF ADDRESS. HEX LOCATION (0000287C) IN CSECT(I7A13 ) LENGTH (1) 
2078+* B TURTN* RETURN TO MDI SUPERVISOR 840 1053 (1 
2079+* 833 CSDCB ADDRESS. X LOCATION(OOOO28FE) IN CSECT(I7A13 ) LENGTH (2) 
2080 + 26k kK IORI CK I ok a lak ick to kcatcacak ak akc ak 1711 P 
OO2DEA O6FOD 289E 20814+T7A28 MVW R7,TURTN SAVE RETURN ADDRESS 2138 DATBF ADDRESS. HEX LOCATION (O00002E60) IN CSECT(1I7A13 ) LENGTH (2) 
OO2DEE 4020 285C 7A28 2082+ MVWI X'7A28',$TUID SAVE TU ID FOR DISPLAY 2132 
OO2DF4 4424 2856 2083+ MVA OPTN1, R4 SET UP POINTER ADRS IN R& G32 DCBUF ADDRESS. HEX LOCATION(0000286C) IN CSECT(I7A13 ) LENGTH (1) 
Q0O02DF8 6E03 2BE0 2084+ BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 1056 1716 
OO2DFC 2E12 ree DC A (X7A 28) ERROR ADRS FOR INVALID PREP 2048 DC2PT Fe ain HEX LOCATION (OO0O2DDE) IN CSECT(I7A13 ) LENGTH (2) 
+ 
QOO2DFE 4C64 2087 L7VA28 TBTS R4, XE) SET EXP ERROR CNTL BIT ON 105 DEVADD ADDRESS. HEX LOCATION (000019D0) IN CSECT (I7A13 ) LENGTH (1) 
002E00 8838 189A 2BDO 2088 MVW UPARM1*, IODCB LOAD DATA PATTERN IN 2ND WD OF IDCB 662 1914 1923 202 
OO2ZE06 4020 2BD2 0048 2089 MVWI X'0048! ,ITOMOD SETUP WRITE DIAG WD 1 IDCB MOD 627 DEV! ADDRESS. HEX LOCATION (00002864) IN CSECT(I7A13 ) LENGTH (2) 
QOO2ZEOC 68603 2A58 2090 BAL SWRTO,RO WRITE DIAG WORD 1 631 1955 
Q002E10 2E12 2091 DC A X7A28) RETURN TO MDI IF ERROR 630 DEVY4 ADDRESS. HEX LOCATION (O000286A) IN CSECT(I7A13 ) LENGTH (2) 
002E12 6812 289E 2092 X7A28 B TURTN* RETURN TO MDI 1824 1825 
2094 COPY T7A29 19MAY78 784 DGDCB ADDRESS. HEX LOCATION (OOOO28AE) IN CSECT (I7A13 ) LENGTH (2) 
2095 T7A29 TUIT X7A29 1048 
2096 + RK AE RO RIO KI II IG kok ik tok tok kk 06 FEB] 6%** 67 DUMMY ABSOLUTE. HEX VALUE (00000000) 
2097+* : 360 482 500 
Soca TEST UNIT 483 ENTPT Ao HEX LOCATION (00002606) IN CSECT(I7A13 ) LENGTH (1) 
2100+* WRITE/READ DIAGNOSTIC REGISTER 1 LOOP 604 ER ABSOLUTE. HEX ame 1 e- fuae f 
2101+* 1062 1727 #1748 £#1831 #1873 «+1898 2128 
oie PURPOSE 684 EXIT ean HEX VALUE (00000006) 
+ 
2104+ WRITE TO CAP DIAGNOSTIC WORD 1 USING DATA PATTERN PASSED 2050 FAKETU ADDRESS. HEX LOCATION (OOOO02DE2) IN CSECT(I7A13 ) LENGTH (2) 
2105+* TO TEST UNIT BY THE MAP AND THEN READ DIAGNOSTIC WORD 1. 29 16 
ce NO RESULT WORDS ARE RETURNED. 534 F00060 Poon HEX LOCATION (OO0026CE) IN CSECT(I7A13 ) LENGTH (1) 
Sano ce CALLING SEQUENCE 554 FO00065 Hee HEX LOCATION (000027C2) IN CSECT (I7A13 ) LENGTH (1) 
Cte ee MDI=$TUXX, 'T7A29,REPT=L7A29, PLNG=4, PARM=XXXX'! 546 FO0075 ppb Rees HEX LOCATION (00002762) IN CSECT(1I7A13 ) LENGTH (1) 
eilete RETURN CONTROL 508 FO00088 EDD RESS HEX LOCATION (00002614) IN CSECT(1I7A13 ) LENGTH (1) 
ca es B TURTN* RETURN TO MDI SUPERVISOR 512 FO0092 Poon HEX LOCATION (0000262A) IN CSECT (17A13 ) LENGTH (1) 
21164 8 ARE RI I IO III IO IO Ri i OC i gk kak dak kata kak a i aoe ate a afc ak ae a 516 F00097 ADDRESS. HEX LOCATION (00002640) IN CSECT(I7A13 ) LENGTH (1) 
002E16 6FOD 289E 2117+T7A29 MVW R7,TURTN SAVE RETURN ADDRESS 418 
QOO2Z2E1A 4020 285C 7A29 2118+ MVWI xX*7A29" $TUID SAVE TU ID FOP DISPLAY 520 F00105 ADDRESS. HEX LOCATION (00002656) IN CSECT(1I7A13 ) LENGTH (1) 
Q002E20 4424 2856 2119+ MVA OPTN1, R4 SET UP POINTER ADRS IN R4 44S 
002E24 6E03 2BE0 2120+ BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 530 F00107 ADDRESS. HEX LOCATION(000026B8) IN CSECT(I7A13 ) LENGTH (1) 
002E28 2E5C 2121+ DC A (X7A29) ERROR ADRS FOR INVALID PREP 451 
2122+* 2056 HEBLK ADDRESS. HEX LOCATION (OOOO2DE4) IN CSECT(I7A13 ) LENGTH (2) 
QOO2E2A 8838 189A 2BD0 2123 L7A29 MVW TUPARM1* ,TODCB MOVE PATTERN TO 2ND WD OF IDCB 1996 
002E30 4020 2BD2 0048 2124 MVWI X'0048', fomMoD SETUP WRITE DIAG WD 1 IDCB MOD 704 HTOE ABSOLUTE. HEX VALUE (O000001A) 
002E36 4C64 2125 TBTS ie res SET EXPT ERROR CNTL BIT ON 1997 
002E38 6E03 2A58 2126 BAL WRTO, R6 WRITE DIAG WORD 1 680 IDLE ABSOLUTE. HEX VALUE (00000002) 
002E3C 2E5C 2127 DC A (X7A29) RETURN TO MDI IF ERROR 1742 1744 
OO2ZE3E 4CAT 2128 TBTR sR ER) INTERRUPT ERROR? 925 IDO0O ADDRESS. HEX LOCATION (00002998) IN CSECT(1I7A13 ) LENGTH (2) 
OO2E40 120D 2129 JON 7TA29 YES - RETURN TO MDI 906 1014 
OO2ZE42 4020 292E 2088 2130 MVWI X*2088',RDDCB LOAD READ DIAG WORD 1 CNTL WD 606 IN ABSOLUTE. HEX ae cama 
O0OO02E48 4020 293A 0002 2131 MVWI 2,RDDCBt+12 SETUP BYTE CNT TO READ WD 1 1061 1728 1740 1861 
QOO2ZE4E 4020 293C 2E60 2132 MVA DATBF,RDDCBt+14 SETUP ADDR OF READ BUFFER 1923 INTBS ADDRESS. HEX LOCATION (OOO002BD8) IN CSECT(1I7A13 ) LENGTH (2) 
O002E54 4c64 2133 TBTS (Ri xB) SET EXPT ERROR CNTL BIT ON 1958 
002E56 6E03 2AA8 2134 BAL DGRD, R6 READ DIAG WORD 1 1818 INTER ADDRESS. HEX LOCATION (00002B3C) IN CSECT(I7A13 ) LENGTH (2) 
OO2E5A 2E5C 2135 Cc A (X7229) RETURN TO MDI IF ERROR 1925 
O0O2E5C 6812 289E 2138 X7A29 B TURTN* RETURN TO MDI ; 1327 INTES inope HEX LOCATION (00002B54) IN CSECT(1I7A13 ) LENGTH (2) 
O0OO02E60 0000 2138 DATBF DC A (¥*-*) 1831 INTET ADDRESS. HEX LOCATION(O0O002B5C) IN CSECT(I7A13 ) LENGTH (2) 
.000000 2140 END 1828 
1858 INTOK FS He HEX LOCATION (00002B60) IN CSECT(I7A13 ) LENGTH (2) 
63 INTRNL ABSOLUTE. HEX VALUE (00000000) 
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TAG PARITY FAILURE MAP 


NAME 


INTRX 
INTR1 
INTR2 
INTR3 
ITOBLK 
ITODCB 


IOMOD 
I7A13 
LINE1 
LSTIO 
L7A28 
MI 
MVBUF 
NG 
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NO0012 
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OF 

ON 
OPTN1 
OPTN3 
PARMARA 
PID 


PIDMSG10 
PREP 
FDDCB 
RICB 
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RMDCB 
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RSDCB 
RO 
F1 
R2 
R3 
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6826981 


CROSS-~REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


385 403 421 
ADDRESS. HEX LOCATION (00002B90) IN 
1875 1878 
ADDRESS. HEX LOCATION (00002B68) IN 
ADDRFSS. HEX LOCATION (00002B76) IN 
ADDRESS. HEX LOCATION (00002B84) IN 
ADDRESS. HEX LOCATION(00002BCC) IN 
64 1729 1963 
ADDRESS. HEX LOCATION (00002BD0} IN 
998 1001 1004 1012 1023 1026 
1044 1048 1075 1078 1711 1717 
ADDRESS. HEX LOCATION (00002BD2) IN 
1065 1066 1703 1706 1712 2089 
CSECT. START (00002500) LENGTH (2402) 
ADDRESS. HEX LOCATION (00002CB8) IN 


ADDRESS. 
171 


HEX LOCATION (00002862) IN 
51 5 1966 


BEX LOCATION (00002DFE) IN 
OLUTE. HEX VALUE(00000020) 

RESS. HEX LOCATION (00002C44) IN 
OLUTE. HEX VALUE (0000002C) 

OLUTE. HEX VALUE (00000027) 

RESS. HEX LOCATION (00002540) IN 
HEX LOCATION(00002554) IN 
HEX LOCATION (00002560) IN 
. HEX LOCATION (00002574) IN 
HEX LOCATION (00002580) IN 
HEX LOCATION(00002594) IN 
HEX LOCATION (000025A0) IN 
HEX LOCATION(000025B4) IN 
HEX LOCATION (000025C8) IN 
HEX LOCATION (000025CC) IN 
HEX, LOCATION (000025D8) IN 
HEX LOCATION (000025E8) IN 
HEX LOCATION (000025EC) IN 
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RESS. HEX LOCATION(000025FC) IN 
RESS. HEX LOCATION (00002600) IN 
OLUTE. HEX VALUE (00000202) 

390 408 
OLUTE, HEX VALUE (00000200) 
RESS. HEX LOCATION (00002856) IN 

1 1860 2083 2119 

jADBRESS, HEX LOCATION (0000285A) IN 
RESS. HEX LOCATION (00001965) IN 

397. 415 43345 63 
RESS. HEX LOCATION(00001800) IN 
72 73 74 75 76 
81 82 83 Bu 85 
90 91 92 93 94 
99 100 101 102 #103 
1 108 109 110 #1117 + °#«2112 
ABSOLUTE. HEX VALUE (0000F1FO) 
{RESOLUTE. HEX VALUE (0000000C) 
ADDRESS. HEX LOCATION (00002925) IN 
10 1021 1023 79. 1080 
ABSOLUTE. HEX VALUE (00000013) 


DRESS. 

103 
DRESS. 
RES 


git LOCATION (0O000294E) IN 
HEX LOCATION (0000295E) IN 
- HEX chem yey ea haa a aaa | IN 
04 815 826 848 59 


oe] 
ty 


HEX LOCATION (OO00028DE) IN 
HEX VALUE (00000000) 
1068 
HEX eAEUE eee 
013 


2010 2 
HEX VALUE (00000002) 
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TAG 
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P/N= 


CROSS~REFERENCE LISTING 


NAME ATTRIBUTES AND REFERENCES 
2133 
R5 REGISTER, HEX VALUE (90000005) 
952 953 1006 1008 1014 1016 
1036 1053 1055 1056 1058 1080 
1721 1723 1739 1746 1868 1869 
1904. 1906 1955 1956 2001 2014 
R6 REGISTER. HEX VALUE (00000006) 
954 955 1051 1715 1735 1749 
1897 1905 1908 1910 1960 1966 
2012 2084 2090 2120 2126 2134 
R7 REGISTER. HEX VALUE (00000007) 
670 950 1007 1013 1021 1035 
1079 1718 1722 41729 #1824 «1865 
1996 2005 2008 2020 2023 2081 
SCTID ADDRESS. HEX LOCATION (00002864) IN 
818 895 951 1006 1009 1034 
SKDCB ADDRESS. HEX LOCATION (000028EE) IN 
START ABSOLUTE. HEX VALUE (0000000) 
SUPSTAT oADDRESS. HEX LOCATION (000019C4) IN 
TUMSGWTR >ADDRESS. HEX LOCATION(000018BA) IN 
TUPARM1 ADDRESS. HEX LOCATION (0000189A) IN 
TURTN ADDRESS. HEX LOCATION(0000289E) IN 
2025 2081 2092 2117 2136 
TUSTATUS ADDRESS. HEX LOCATION (00001818) IN 
TUWORK ADDRESS. HEX LOCATION(0000181A) IN 
1998 1999 2000 2002+ 2058 
T7A02 ADDRESS. HEX LOCATION (000028A6) IN 
371 389 407 425° 437 
T7A28 ADDRESS. HEX LOCATION(00002DEA) IN 
VRDCB ADDRESS. HEX LOCATION (0000291E) IN 
WKDCB ADBRESS, HEX LOCATION (0000293) IN 
WRDCB ADDRESS. HEX LOCATION(0000290E) IN 
1029 1075 
WRITO ABSOLUTE. HEX VALUE (00000010) 
WRIT1 ABSOLUTE. HEX VALUE (00000011) 
WRSID ADDRESS. HEX LOCATION(0000297C) IN 
807 884 952 1041 1045 
WSDCB ADDRESS. HEX LOCATION (000028CE) IN 
1044 1045 
XE ABSOLUTE. HEX VALUE (00090024) 
1827 1889 2087 2125 2133 
XI ABSOLUTE. HEX VALUE (00000022) 
1063. 1731 1874 
XIO ADDRESS. HEX LOCATION (00002ABE) IN 
999 1002 1010 1017+ 1024 1027 
1046 1049 
XIOCK ADDRESS. HEX LOCATION (00002892) IN 
XIOCO ,ABDRESS. HEX LOCATION(00002BA4) IN 
XIOCQ ABBRESS. HEX LOCATION (00002BBA) IN 
XIOCS {ARDRESS. HEX LOCATION (O0002AD0) IN 
XIOCV ADDRESS. HEX LOCATION(00002BA8) IN 
XIOCX JABDRESS. HEX LOCATION (00002BC6) IN 
XIODG ADDRESS. HEX LOCATION (O0002AC4) IN 
XIOER ADDRESS. HEX LOCATION (00002830) IN 
XI01 ABDRESS. HEX LOCATION (OOO02AE0) IW 
X1I02 jADDRESS. HEX LOCATION (00002B06) IN 
XI08 ADDRESS. HEX LOCATION(00002B1C) IN 
1071 1073 = 1747 
XTRNL ABSOLUTE. HEX VALUE (00000001) 
X7A 28 ADDRESS. HEX LOCATION (00002E12) IN 
2085 2091 
X7A29 ADDRESS. HEX LOCATION(00002E5C) IN 
2121 2127 2129 2135 
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